home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / MAIN.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  2.3 KB  |  30 lines
  1.  
  2. *                                                                               
  3. *  Main Procedure Definition Macro                                              
  4. *                                                                               
  5. *  A is Main Program Name (<6 CHAR)                                             
  6. *                                                                               
  7. MAIN   $MACRO            A                                                      
  8.        PSEG              PROG SEG                                               
  9.        DEF  :A:          ENTRY POINT                                            
  10. :A:    EQU  $                                                                   
  11. *                                                                               
  12. *  Initialize Variables                                                         
  13. *                                                                               
  14.        LACK 1            MAKE CONSTANT ONE                                      
  15.        SACL ONE,0        SAVE IT                                                
  16.        ZAC               ZERO ACCUMULATOR                                       
  17.        SUB  ONE,0        MAKE -1                                                
  18.        SACL MINUS,0      SAVE IT                                                
  19. *                                                                               
  20. *  Data Segment                                                                 
  21. *                                                                               
  22.        DSEG                                                                     
  23. ONE    BSS  1            CONSTANT ONE                                           
  24. MINUS  BSS  1            CONSTANT -1                                            
  25. XR0    BSS  1            TEMP 0                                                 
  26. XR1    BSS  1            TEMP 1                                                 
  27.        DEF  ONE,MINUS    ALLOW EXTERNAL USE                                     
  28.        DEF  XR0,XR1      OF VARIABLES                                           
  29.        DEND              END OF DATA                                            
  30.        $END